object DMT_FAT: TDMT_FAT
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 128
  Top = 109
  Height = 522
  Width = 787
  object DS_Q_USUARIO: TDataSource
    DataSet = Q_USUARIO
    Left = 258
    Top = 71
  end
  object ADOFATUR: TADOConnection
    CommandTimeout = 60000
    ConnectionTimeout = 60000
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object Q_USUARIO: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'WUSUARIO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select '
      
        ' case  when (( PATINDEX ('#39'% %'#39',usu.usu_nome)>0) and (PATINDEX('#39'%' +
        ' %'#39',SUBSTRING (usu.usu_nome,PATINDEX ('#39'% %'#39',usu.usu_nome)+ 1,len' +
        '(usu.usu_nome)))> 0)) then'
      
        '   SUBSTRING (usu.usu_nome, 1,len(usu.usu_nome)-(len(usu.usu_nom' +
        'e)- PATINDEX ( '#39'% %'#39' , usu.usu_nome ))) + '
      
        '   SUBSTRING (SUBSTRING (usu.usu_nome,PATINDEX ('#39'% %'#39',usu.usu_no' +
        'me)+ 1,len(usu.usu_nome)),1,PATINDEX('#39'% %'#39',SUBSTRING (usu.usu_no' +
        'me,PATINDEX ('#39'% %'#39',usu.usu_nome)+ 1,len(usu.usu_nome))))'
      ' else usu.usu_nome '
      ' end nome_usuario,'
      ' usu.*,gru.gru_apelido,gru.gru_cidade, GER.GER_DESC'
      'from usuario usu,grupo_cr gru, GERAL GER'
      'where'
      'usu_login = :WUSUARIO and'
      'usu.gru_id = gru.gru_id AND'
      'GER.GER_ID = GRU.GER_ID_UF'
      '')
    Left = 260
    Top = 16
    object Q_USUARIOnome_usuario: TStringField
      FieldName = 'nome_usuario'
      ReadOnly = True
      Size = 100
    end
    object Q_USUARIOusu_id: TAutoIncField
      FieldName = 'usu_id'
      ReadOnly = True
    end
    object Q_USUARIOusu_nome: TStringField
      FieldName = 'usu_nome'
      Size = 50
    end
    object Q_USUARIOfun_id: TIntegerField
      FieldName = 'fun_id'
    end
    object Q_USUARIOgru_id: TIntegerField
      FieldName = 'gru_id'
    end
    object Q_USUARIOusu_login: TStringField
      FieldName = 'usu_login'
      Size = 30
    end
    object Q_USUARIOusu_senha: TStringField
      FieldName = 'usu_senha'
      Size = 10
    end
    object Q_USUARIOusu_aniv_dia: TIntegerField
      FieldName = 'usu_aniv_dia'
    end
    object Q_USUARIOusu_aniv_mes: TIntegerField
      FieldName = 'usu_aniv_mes'
    end
    object Q_USUARIOusu_ramal: TStringField
      FieldName = 'usu_ramal'
      Size = 10
    end
    object Q_USUARIOger_id_logra: TIntegerField
      FieldName = 'ger_id_logra'
    end
    object Q_USUARIOusu_end: TStringField
      FieldName = 'usu_end'
      Size = 50
    end
    object Q_USUARIOusu_end_num: TStringField
      FieldName = 'usu_end_num'
      Size = 6
    end
    object Q_USUARIOusu_end_compl: TStringField
      FieldName = 'usu_end_compl'
      Size = 30
    end
    object Q_USUARIOusu_bairro: TStringField
      FieldName = 'usu_bairro'
      Size = 30
    end
    object Q_USUARIOusu_cidade: TStringField
      FieldName = 'usu_cidade'
      Size = 30
    end
    object Q_USUARIOger_id_uf: TIntegerField
      FieldName = 'ger_id_uf'
    end
    object Q_USUARIOusu_cep: TStringField
      FieldName = 'usu_cep'
      Size = 8
    end
    object Q_USUARIOusu_email: TStringField
      FieldName = 'usu_email'
      Size = 60
    end
    object Q_USUARIOusu_gerencial: TStringField
      FieldName = 'usu_gerencial'
      Size = 1
    end
    object Q_USUARIOusu_local: TStringField
      FieldName = 'usu_local'
      Size = 6
    end
    object Q_USUARIOusu_impchk: TStringField
      FieldName = 'usu_impchk'
      Size = 50
    end
    object Q_USUARIOusu_impcupom: TStringField
      FieldName = 'usu_impcupom'
      Size = 50
    end
    object Q_USUARIOusu_gravatxt: TStringField
      FieldName = 'usu_gravatxt'
      Size = 50
    end
    object Q_USUARIOusu_host: TStringField
      FieldName = 'usu_host'
      Size = 60
    end
    object Q_USUARIOusu_username: TStringField
      FieldName = 'usu_username'
      Size = 60
    end
    object Q_USUARIOusu_password: TStringField
      FieldName = 'usu_password'
      Size = 60
    end
    object Q_USUARIOgru_apelido: TStringField
      FieldName = 'gru_apelido'
      Size = 30
    end
    object Q_USUARIOgru_cidade: TStringField
      FieldName = 'gru_cidade'
      Size = 30
    end
    object Q_USUARIOusu_tempo_fecha: TIntegerField
      FieldName = 'usu_tempo_fecha'
    end
    object Q_USUARIOgru_id_amp1: TIntegerField
      FieldName = 'gru_id_amp1'
    end
    object Q_USUARIOgru_id_amp2: TIntegerField
      FieldName = 'gru_id_amp2'
    end
    object Q_USUARIOgru_id_amp3: TIntegerField
      FieldName = 'gru_id_amp3'
    end
    object Q_USUARIOGER_DESC: TStringField
      FieldName = 'GER_DESC'
      Size = 50
    end
  end
  object Q_STATUS: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM STATUS')
    Left = 596
    Top = 270
    object Q_STATUSsta_dthoje: TDateTimeField
      FieldName = 'sta_dthoje'
    end
    object Q_STATUSsta_path_pastas: TStringField
      FieldName = 'sta_path_pastas'
      Size = 100
    end
    object Q_STATUSsta_tpc_iddepdin: TIntegerField
      FieldName = 'sta_tpc_iddepdin'
    end
    object Q_STATUSsta_tpc_idtrans: TIntegerField
      FieldName = 'sta_tpc_idtrans'
    end
    object Q_STATUSsta_tpc_iddepchk: TIntegerField
      FieldName = 'sta_tpc_iddepchk'
    end
    object Q_STATUSsta_tpc_idxboleto: TIntegerField
      FieldName = 'sta_tpc_idxboleto'
    end
  end
  object DS_Q_STATUS: TDataSource
    DataSet = Q_STATUS
    Left = 596
    Top = 326
  end
  object CHK_DIREITO: TADOStoredProc
    Connection = ADOFATUR
    ProcedureName = 'CHK_DIREITO;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@WUSU_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@WEVE_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@WUSE_I'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end
      item
        Name = '@WUSE_A'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end
      item
        Name = '@WUSE_E'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end
      item
        Name = '@WUSE_C'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end
      item
        Name = '@WUSE_U'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end>
    Left = 128
    Top = 144
  end
  object Q_PERMISSAO: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'WUSU_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT *'
      'FROM   USUARIO_PERMISSAO P,MENU M'
      'WHERE (P.USU_ID  = :WUSU_ID  )'
      '  AND (P.PER_ID  = M.MNU_ID  )'
      '  AND (M.MNU_ID_PRINC IS NULL)'
      '  AND (M.MNU_ID < 900        )'
      'ORDER BY M.MNU_ID')
    Left = 258
    Top = 144
    object Q_PERMISSAOusp_id: TAutoIncField
      FieldName = 'usp_id'
      ReadOnly = True
    end
    object Q_PERMISSAOusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_PERMISSAOper_id: TIntegerField
      FieldName = 'per_id'
    end
    object Q_PERMISSAOusp_alt: TStringField
      FieldName = 'usp_alt'
      FixedChar = True
      Size = 1
    end
    object Q_PERMISSAOusp_inc: TStringField
      FieldName = 'usp_inc'
      FixedChar = True
      Size = 1
    end
    object Q_PERMISSAOusp_exc: TStringField
      FieldName = 'usp_exc'
      FixedChar = True
      Size = 1
    end
    object Q_PERMISSAOmnu_id: TIntegerField
      FieldName = 'mnu_id'
    end
    object Q_PERMISSAOmnu_desc: TStringField
      DisplayWidth = 40
      FieldName = 'mnu_desc'
      Size = 40
    end
    object Q_PERMISSAOmnu_seq: TIntegerField
      FieldName = 'mnu_seq'
    end
    object Q_PERMISSAOmnu_id_princ: TIntegerField
      FieldName = 'mnu_id_princ'
    end
    object Q_PERMISSAOmnu_link: TStringField
      FieldName = 'mnu_link'
      Size = 100
    end
    object Q_PERMISSAOmnu_nomeimg: TStringField
      FieldName = 'mnu_nomeimg'
      Size = 50
    end
  end
  object DS_Q_PERMISSAO: TDataSource
    DataSet = Q_PERMISSAO
    Left = 257
    Top = 208
  end
  object Q_SUBMENU: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    CommandTimeout = 70
    Parameters = <>
    SQL.Strings = (
      'SELECT *                                   '
      'FROM   USUARIO_PERMISSAO P,MENU M          '
      'WHERE  (P.USU_ID       = 165      )  '
      '  AND  (P.PER_ID       = M.MNU_ID       )  '
      '  AND  (M.MNU_ID_PRINC = 2)  '
      'ORDER BY M.MNU_ID_PRINC, MNU_SEQ')
    Left = 480
    Top = 145
    object Q_SUBMENUusp_id: TAutoIncField
      FieldName = 'usp_id'
      ReadOnly = True
    end
    object Q_SUBMENUusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_SUBMENUper_id: TIntegerField
      FieldName = 'per_id'
    end
    object Q_SUBMENUusp_alt: TStringField
      FieldName = 'usp_alt'
      FixedChar = True
      Size = 1
    end
    object Q_SUBMENUusp_inc: TStringField
      FieldName = 'usp_inc'
      FixedChar = True
      Size = 1
    end
    object Q_SUBMENUusp_exc: TStringField
      FieldName = 'usp_exc'
      FixedChar = True
      Size = 1
    end
    object Q_SUBMENUmnu_id: TIntegerField
      FieldName = 'mnu_id'
    end
    object Q_SUBMENUmnu_seq: TIntegerField
      FieldName = 'mnu_seq'
    end
    object Q_SUBMENUmnu_desc: TStringField
      DisplayWidth = 40
      FieldName = 'mnu_desc'
      Size = 40
    end
    object Q_SUBMENUmnu_id_princ: TIntegerField
      FieldName = 'mnu_id_princ'
    end
    object Q_SUBMENUmnu_link: TStringField
      FieldName = 'mnu_link'
      Size = 100
    end
    object Q_SUBMENUmnu_nomeimg: TStringField
      FieldName = 'mnu_nomeimg'
      Size = 50
    end
  end
  object DS_Q_SUBMENU: TDataSource
    DataSet = Q_SUBMENU
    Left = 481
    Top = 207
  end
  object Q_INFORMATIVO: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from informativo'
      'where GETDATE() between  inf_dtini and inf_dtfim'
      'order by inf_id')
    Left = 255
    Top = 274
    object Q_INFORMATIVOinf_id: TAutoIncField
      FieldName = 'inf_id'
      ReadOnly = True
    end
    object Q_INFORMATIVOinf_desc: TStringField
      FieldName = 'inf_desc'
      Size = 1500
    end
    object Q_INFORMATIVOinf_titulo: TStringField
      FieldName = 'inf_titulo'
      Size = 50
    end
    object Q_INFORMATIVOinf_dtini: TDateTimeField
      FieldName = 'inf_dtini'
    end
    object Q_INFORMATIVOinf_dtfim: TDateTimeField
      FieldName = 'inf_dtfim'
    end
  end
  object DS_Q_INFORMATIVO: TDataSource
    DataSet = Q_INFORMATIVO
    Left = 256
    Top = 329
  end
  object chk_login: TADOStoredProc
    Connection = ADOFATUR
    ProcedureName = 'chk_login;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@wusu_login'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@wusu_senha'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Left = 131
    Top = 16
  end
  object Q_GRUPO_CR: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'WGRU_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select GRP.*,RTRIM(GER.GER_COD)+'#39' '#39'+RTRIM(GRP.GRU_END)+'#39' '#39'+RTRIM' +
        '(GRP.GRU_END_NUM)+'#39' '#39'+RTRIM(GRP.GRU_END_COMPL)+'#39'-'#39'+RTRIM(GRP.GRU' +
        '_BAIRRO) AS ENDERECO, UF.GER_COD AS UFG'
      'from GRUPO_CR GRP,GERAL GER,GERAL UF'
      'WHERE GRP.GER_ID_LOGRA = GER.GER_ID'
      'AND GRP.GER_ID_UF = UF.GER_ID'
      'AND GRP.GRU_ID = :WGRU_ID'
      '')
    Left = 586
    Top = 14
    object Q_GRUPO_CRgru_id: TIntegerField
      FieldName = 'gru_id'
    end
    object Q_GRUPO_CRgru_razao: TStringField
      FieldName = 'gru_razao'
      Size = 50
    end
    object Q_GRUPO_CRgru_apelido: TStringField
      FieldName = 'gru_apelido'
      Size = 30
    end
    object Q_GRUPO_CRger_id_logra: TIntegerField
      FieldName = 'ger_id_logra'
    end
    object Q_GRUPO_CRgru_end: TStringField
      FieldName = 'gru_end'
      Size = 50
    end
    object Q_GRUPO_CRgru_end_num: TStringField
      FieldName = 'gru_end_num'
      Size = 6
    end
    object Q_GRUPO_CRgru_end_compl: TStringField
      FieldName = 'gru_end_compl'
      Size = 30
    end
    object Q_GRUPO_CRgru_bairro: TStringField
      FieldName = 'gru_bairro'
      Size = 30
    end
    object Q_GRUPO_CRgru_cidade: TStringField
      FieldName = 'gru_cidade'
      Size = 30
    end
    object Q_GRUPO_CRger_id_uf: TIntegerField
      FieldName = 'ger_id_uf'
    end
    object Q_GRUPO_CRgru_cep: TStringField
      FieldName = 'gru_cep'
      Size = 8
    end
    object Q_GRUPO_CRgru_cnpj: TStringField
      FieldName = 'gru_cnpj'
      Size = 14
    end
    object Q_GRUPO_CRgru_ie: TStringField
      FieldName = 'gru_ie'
      Size = 16
    end
    object Q_GRUPO_CRgru_email: TStringField
      FieldName = 'gru_email'
      Size = 60
    end
    object Q_GRUPO_CRgru_ddd1: TStringField
      FieldName = 'gru_ddd1'
      Size = 4
    end
    object Q_GRUPO_CRgru_tel1: TStringField
      FieldName = 'gru_tel1'
      Size = 8
    end
    object Q_GRUPO_CRgru_desc1: TStringField
      FieldName = 'gru_desc1'
      Size = 30
    end
    object Q_GRUPO_CRgru_ddd2: TStringField
      FieldName = 'gru_ddd2'
      Size = 4
    end
    object Q_GRUPO_CRgru_tel2: TStringField
      FieldName = 'gru_tel2'
      Size = 8
    end
    object Q_GRUPO_CRgru_desc2: TStringField
      FieldName = 'gru_desc2'
      Size = 30
    end
    object Q_GRUPO_CRgru_ddd3: TStringField
      FieldName = 'gru_ddd3'
      Size = 4
    end
    object Q_GRUPO_CRgru_tel3: TStringField
      FieldName = 'gru_tel3'
      Size = 8
    end
    object Q_GRUPO_CRgru_desc3: TStringField
      FieldName = 'gru_desc3'
      Size = 30
    end
    object Q_GRUPO_CRgru_ddd4: TStringField
      FieldName = 'gru_ddd4'
      Size = 4
    end
    object Q_GRUPO_CRgru_tel4: TStringField
      FieldName = 'gru_tel4'
      Size = 8
    end
    object Q_GRUPO_CRgru_desc4: TStringField
      FieldName = 'gru_desc4'
      Size = 30
    end
    object Q_GRUPO_CRusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_GRUPO_CRgru_seq: TIntegerField
      FieldName = 'gru_seq'
    end
    object Q_GRUPO_CRgru_host: TStringField
      FieldName = 'gru_host'
      Size = 50
    end
    object Q_GRUPO_CRgru_user: TStringField
      FieldName = 'gru_user'
      Size = 50
    end
    object Q_GRUPO_CRgru_password: TStringField
      FieldName = 'gru_password'
      Size = 50
    end
    object Q_GRUPO_CRENDERECO: TStringField
      FieldName = 'ENDERECO'
      ReadOnly = True
      Size = 132
    end
    object Q_GRUPO_CRUFG: TStringField
      FieldName = 'UFG'
      Size = 10
    end
  end
  object DS_Q_GRUPO_CR: TDataSource
    DataSet = Q_GRUPO_CR
    Left = 592
    Top = 79
  end
  object Q_ACESSOS: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'wacs_id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * '
      'from acessos'
      'where acs_id = :wacs_id')
    Left = 370
    Top = 16
    object Q_ACESSOSacs_id: TAutoIncField
      FieldName = 'acs_id'
      ReadOnly = True
    end
    object Q_ACESSOSusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_ACESSOSdtentra: TDateTimeField
      FieldName = 'dtentra'
    end
    object Q_ACESSOSdtsai: TDateTimeField
      FieldName = 'dtsai'
    end
    object Q_ACESSOSgru_id: TIntegerField
      FieldName = 'gru_id'
    end
  end
  object DS_Q_ACESSOS: TDataSource
    DataSet = Q_ACESSOS
    Left = 368
    Top = 79
  end
  object Q_ONLINE: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'wgru_id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select COUNT(*)  as online'
      'from acessos'
      'where gru_id = :wgru_id'
      'and dtsai is null')
    Left = 482
    Top = 16
    object Q_ONLINEonline: TIntegerField
      FieldName = 'online'
      ReadOnly = True
    end
  end
  object DS_Q_ONLINE: TDataSource
    DataSet = Q_ONLINE
    Left = 480
    Top = 79
  end
  object Q_ATENDE: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'woph_id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from operador_hist '
      'where oph_id = :woph_id'
      'and ((oph_hora_sai is null) oR (oph_hora_sai_lig is null))')
    Left = 594
    Top = 148
    object Q_ATENDEoph_id: TIntegerField
      FieldName = 'oph_id'
    end
    object Q_ATENDEusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_ATENDEger_id_estac: TIntegerField
      FieldName = 'ger_id_estac'
    end
    object Q_ATENDEoph_data: TDateTimeField
      FieldName = 'oph_data'
    end
    object Q_ATENDEoph_hora_ent: TStringField
      FieldName = 'oph_hora_ent'
      Size = 4
    end
    object Q_ATENDEoph_hora_sai: TStringField
      FieldName = 'oph_hora_sai'
      Size = 4
    end
    object Q_ATENDEoph_status: TStringField
      FieldName = 'oph_status'
      Size = 1
    end
    object Q_ATENDEoph_hora_ent_lig: TStringField
      FieldName = 'oph_hora_ent_lig'
      Size = 4
    end
    object Q_ATENDEoph_hora_sai_lig: TStringField
      FieldName = 'oph_hora_sai_lig'
      Size = 4
    end
  end
  object DS_Q_ATENDE: TDataSource
    DataSet = Q_ATENDE
    Left = 596
    Top = 204
  end
  object DS_Q_ESTACLIVRE: TDataSource
    DataSet = Q_ESTACLIVRE
    Left = 481
    Top = 271
  end
  object Q_ESTACLIVRE: TADOStoredProc
    Connection = ADOFATUR
    CursorType = ctStatic
    ProcedureName = 'SP_ESTACOESLIVRES;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end>
    Left = 128
    Top = 208
    object Q_ESTACLIVREger_id: TIntegerField
      FieldName = 'ger_id'
    end
    object Q_ESTACLIVREger_cod: TStringField
      FieldName = 'ger_cod'
      Size = 10
    end
    object Q_ESTACLIVREger_desc: TStringField
      FieldName = 'ger_desc'
      Size = 50
    end
    object Q_ESTACLIVREger_tipo: TStringField
      FieldName = 'ger_tipo'
      Size = 10
    end
    object Q_ESTACLIVREger_aux1: TStringField
      FieldName = 'ger_aux1'
      Size = 200
    end
    object Q_ESTACLIVREESTACAO: TStringField
      FieldName = 'ESTACAO'
      ReadOnly = True
      Size = 63
    end
  end
  object SP_CHK_ATENDIONLINE: TADOStoredProc
    Connection = ADOFATUR
    ProcedureName = 'SP_CHK_ATENDIONLINE;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@WUSU_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@WAUTO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@WOBS'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@WATIVA'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@WOPH_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end
      item
        Name = '@WESTAC'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end>
    Left = 128
    Top = 72
  end
  object Q_MENU_ATIVO: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'WUSU_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * '
      'from usuario_permissao p,menu m'
      'where p.usu_id = :WUSU_ID'
      'and p.per_id = m.mnu_id'
      'order by mnu_seq'
      '')
    Left = 368
    Top = 144
    object Q_MENU_ATIVOusp_id: TAutoIncField
      FieldName = 'usp_id'
      ReadOnly = True
    end
    object Q_MENU_ATIVOusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_MENU_ATIVOper_id: TIntegerField
      FieldName = 'per_id'
    end
    object Q_MENU_ATIVOusp_alt: TStringField
      FieldName = 'usp_alt'
      FixedChar = True
      Size = 1
    end
    object Q_MENU_ATIVOusp_inc: TStringField
      FieldName = 'usp_inc'
      FixedChar = True
      Size = 1
    end
    object Q_MENU_ATIVOusp_exc: TStringField
      FieldName = 'usp_exc'
      FixedChar = True
      Size = 1
    end
    object Q_MENU_ATIVOmnu_id: TIntegerField
      FieldName = 'mnu_id'
    end
    object Q_MENU_ATIVOmnu_desc: TStringField
      DisplayWidth = 40
      FieldName = 'mnu_desc'
      Size = 40
    end
    object Q_MENU_ATIVOmnu_seq: TIntegerField
      FieldName = 'mnu_seq'
    end
    object Q_MENU_ATIVOmnu_id_princ: TIntegerField
      FieldName = 'mnu_id_princ'
    end
    object Q_MENU_ATIVOmnu_link: TStringField
      FieldName = 'mnu_link'
      Size = 100
    end
    object Q_MENU_ATIVOmnu_nomeimg: TStringField
      FieldName = 'mnu_nomeimg'
      Size = 50
    end
  end
  object DS_Q_MENU_ATIVO: TDataSource
    DataSet = Q_MENU_ATIVO
    Left = 370
    Top = 207
  end
  object Q_ATENDIMENTO: TADOQuery
    Connection = ADOFATUR
    Parameters = <
      item
        Name = 'WOPH_ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT ATN_SEQ,ATN_HORA_CHEGADA,ATN_NOME,TPA_DESC,'
      'ATN_ATENDENTE,ATN_ESPECIAL,ATN_DEVEDOR,ATN_ID'
      'FROM ATENDIMENTO ATN,TIPO_ATENDIMENTO TPA'
      'WHERE ATN.OPH_ID = :WOPH_ID'
      'AND ATN.TPA_ID = TPA.TPA_ID'
      'AND ATN.ATN_LIDO = '#39'S'#39
      'AND ATN.ATN_HORA_ATEND IS NOT NULL'
      'AND ATN.ATN_HORA_SAIDA IS NULL'
      'ORDER BY ATN_SEQ')
    Left = 369
    Top = 270
    object Q_ATENDIMENTOATN_SEQ: TIntegerField
      FieldName = 'ATN_SEQ'
    end
    object Q_ATENDIMENTOATN_HORA_CHEGADA: TStringField
      FieldName = 'ATN_HORA_CHEGADA'
      Size = 4
    end
    object Q_ATENDIMENTOATN_NOME: TStringField
      FieldName = 'ATN_NOME'
      Size = 50
    end
    object Q_ATENDIMENTOTPA_DESC: TStringField
      FieldName = 'TPA_DESC'
      Size = 50
    end
    object Q_ATENDIMENTOATN_ATENDENTE: TStringField
      FieldName = 'ATN_ATENDENTE'
      Size = 50
    end
    object Q_ATENDIMENTOATN_ESPECIAL: TStringField
      FieldName = 'ATN_ESPECIAL'
      Size = 1
    end
    object Q_ATENDIMENTOATN_DEVEDOR: TStringField
      FieldName = 'ATN_DEVEDOR'
      Size = 1
    end
    object Q_ATENDIMENTOATN_ID: TAutoIncField
      FieldName = 'ATN_ID'
      ReadOnly = True
    end
  end
  object DS_Q_ATENDIMENTO: TDataSource
    DataSet = Q_ATENDIMENTO
    Left = 372
    Top = 328
  end
  object SP_BAIXATENDIMENTO: TADOStoredProc
    Connection = ADOFATUR
    ProcedureName = 'SP_BAIXATENDIMENTO;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@WATN_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 127
    Top = 274
  end
  object qryCEP: TADOQuery
    Connection = ADOFATUR
    CursorType = ctStatic
    Parameters = <>
    Left = 128
    Top = 440
  end
  object Q_GRUPOS: TADOQuery
    Connection = ADOFATUR
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM GRUPO_CR')
    Left = 374
    Top = 425
    object Q_GRUPOSgru_id: TAutoIncField
      FieldName = 'gru_id'
      ReadOnly = True
    end
    object Q_GRUPOSgru_razao: TStringField
      FieldName = 'gru_razao'
      Size = 50
    end
    object Q_GRUPOSgru_apelido: TStringField
      FieldName = 'gru_apelido'
      Size = 30
    end
    object Q_GRUPOSger_id_logra: TIntegerField
      FieldName = 'ger_id_logra'
    end
    object Q_GRUPOSgru_end: TStringField
      FieldName = 'gru_end'
      Size = 50
    end
    object Q_GRUPOSgru_end_num: TStringField
      FieldName = 'gru_end_num'
      Size = 6
    end
    object Q_GRUPOSgru_end_compl: TStringField
      FieldName = 'gru_end_compl'
      Size = 30
    end
    object Q_GRUPOSgru_bairro: TStringField
      FieldName = 'gru_bairro'
      Size = 30
    end
    object Q_GRUPOSgru_cidade: TStringField
      FieldName = 'gru_cidade'
      Size = 30
    end
    object Q_GRUPOSger_id_uf: TIntegerField
      FieldName = 'ger_id_uf'
    end
    object Q_GRUPOSgru_cep: TStringField
      FieldName = 'gru_cep'
      Size = 8
    end
    object Q_GRUPOSgru_cnpj: TStringField
      FieldName = 'gru_cnpj'
      Size = 14
    end
    object Q_GRUPOSgru_ie: TStringField
      FieldName = 'gru_ie'
      Size = 16
    end
    object Q_GRUPOSgru_email: TStringField
      FieldName = 'gru_email'
      Size = 60
    end
    object Q_GRUPOSgru_ddd1: TStringField
      FieldName = 'gru_ddd1'
      Size = 4
    end
    object Q_GRUPOSgru_tel1: TStringField
      FieldName = 'gru_tel1'
      Size = 8
    end
    object Q_GRUPOSgru_desc1: TStringField
      FieldName = 'gru_desc1'
      Size = 30
    end
    object Q_GRUPOSgru_ddd2: TStringField
      FieldName = 'gru_ddd2'
      Size = 4
    end
    object Q_GRUPOSgru_tel2: TStringField
      FieldName = 'gru_tel2'
      Size = 8
    end
    object Q_GRUPOSgru_desc2: TStringField
      FieldName = 'gru_desc2'
      Size = 30
    end
    object Q_GRUPOSgru_ddd3: TStringField
      FieldName = 'gru_ddd3'
      Size = 4
    end
    object Q_GRUPOSgru_tel3: TStringField
      FieldName = 'gru_tel3'
      Size = 8
    end
    object Q_GRUPOSgru_desc3: TStringField
      FieldName = 'gru_desc3'
      Size = 30
    end
    object Q_GRUPOSgru_ddd4: TStringField
      FieldName = 'gru_ddd4'
      Size = 4
    end
    object Q_GRUPOSgru_tel4: TStringField
      FieldName = 'gru_tel4'
      Size = 8
    end
    object Q_GRUPOSgru_desc4: TStringField
      FieldName = 'gru_desc4'
      Size = 30
    end
    object Q_GRUPOSusu_id: TIntegerField
      FieldName = 'usu_id'
    end
    object Q_GRUPOSgru_seq: TIntegerField
      FieldName = 'gru_seq'
    end
    object Q_GRUPOSgru_host: TStringField
      FieldName = 'gru_host'
      Size = 50
    end
    object Q_GRUPOSgru_user: TStringField
      FieldName = 'gru_user'
      Size = 50
    end
    object Q_GRUPOSgru_password: TStringField
      FieldName = 'gru_password'
      Size = 50
    end
    object Q_GRUPOSgru_resbaixa: TBCDField
      FieldName = 'gru_resbaixa'
      Precision = 18
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Q_GRUPOS
    Left = 472
    Top = 423
  end
end
